home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Interactive Media Design Review 1999
/
Interactive Media Design Review 1999.iso
/
pc
/
allfiles
/
angry
/
main.dir
/
00012_Script_item_clickOn
< prev
next >
Wrap
Text File
|
1999-03-01
|
2KB
|
74 lines
property WhichListPos
global Clickers
global gScroll
on enterframe me
set doMe = getAt(Clickers, WhichListPos)
if the pShadowOn of doMe = TRUE then
set the member of sprite(the pAnimSpr of doMe) to ¼
member (the pShadSpr of doMe)
end if
updatestage
end
on mouseDown me
set doMe = getAt(Clickers, WhichListPos)
set the pShadowOn of doMe = TRUE
if the pShadowOn of doMe = TRUE then
set the member of sprite(the pAnimSpr of doMe) to ¼
member (the pShadSpr of doMe)
updatestage
end if
repeat with a = 1 to count(gScroll)
ReturnLoc getAt(gScroll, a)
end repeat
go to movie (the pMovie of doMe)
end
on mouseWithin me
set doMe = getAt(clickers, WhichListPos)
-- position the shadow sprite here
set the member of sprite(the pAnimSpr of doMe) to ¼
member (the pShadSpr of doMe)
updatestage
end
on mouseLeave me
set doMe = getAt(clickers, WhichListPos)
-- remove the shadow sprite here
set the member of sprite(the pAnimSpr of doMe) to ¼
member (the pShadSpr of doMe)
updatestage
if the pShadowOn of doMe = FALSE then
set the member of sprite(the pAnimSpr of doMe) to ¼
member (the pStartSpr of doMe)
updatestage
end if
end
on getPropertyDescriptionList
set p_list = [¼
#WhichListPos: [ #comment: "List Position:",¼
#format: #integer,¼
#default: 1]]
return p_list
end